BBS in a Box 2/BBS in a box - Trilogy II.iso/Files/Hyper/B/BabyNamesStack/BabyNamesStack/background_3316.txt

Text File | 1990-10-21 | 5.5 KB | 267 lines

-- background: 3316 from stack: in
-- bmap block id: 3761
-- flags: 4000
-- background id: 0
-- name: BoysNames
----- HyperTalk script -----
on openCard
  get bg fld "flag"
  if it is 1 then
    set hilite of bg btn "flag" to true
  else if it ≠ 1 then
    set hilite of bg btn "flag" to false
  end if
end openCard

on closeCard
  get hilite of bg btn "flag"
  if it is true then
    put 1 into bg fld "flag"
  else if it is false then
    put 0 into bg fld "flag"
  end if
  put bg fld "BoysName" into it
  set the name of this cd to it
  pass closeCard
end closeCard



-- part 1 (field)
-- low flags: 02
-- high flags: 4000
-- rect: left=120 top=79 right=128 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 36
-- style flags: 0
-- line height: 48
-- part name: boysName


-- part 2 (field)
-- low flags: 02
-- high flags: 4000
-- rect: left=120 top=125 right=158 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: boysname2


-- part 5 (field)
-- low flags: 02
-- high flags: 4000
-- rect: left=120 top=158 right=192 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: origin


-- part 6 (field)
-- low flags: 02
-- high flags: 4000
-- rect: left=120 top=191 right=256 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name:


-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=63 top=234 right=278 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Name
----- HyperTalk script -----
on mouseUp
  answer "Add a new name or delete this name?" with "Add" or "Delete" or "Cancel"

  if it is "Add" then
    doMenu "New Card"
    click at the loc of bg fld 1
    put 0 into cd fld "sortboys" of cd 1
  else if it is "Delete" then
    doMenu "Delete Card"
    put 0 into cd fld "sortboys" of cd 1
  end if
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=16 top=234 right=278 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Main
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go cd 1
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=16 top=283 right=328 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseStillDown
  go previous cd
end mouseStillDown



-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=63 top=283 right=327 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseStillDown
  go next cd
end mouseStillDown


-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=461 top=25 right=65 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to stack "Home"
end mouseUp



-- part 20 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=408 top=321 right=337 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: flag


-- part 21 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=453 top=254 right=275 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Flag
----- HyperTalk script -----
on mouseUp
  if the hilite of me = true then
    get cd fld "boysFlag" of cd 2
    put it + 1 into cd fld "boysFlag" of cd 2
  else if the hilite of me = false then
    get cd fld "boysFlag" of cd 2
    put it - 1 into cd fld "boysFlag" of cd 2
  end if
  put 0 into cd fld "flagChangeB" of cd 1
end mouseUp



-- part 22 (field)
-- low flags: 02
-- high flags: 4000
-- rect: left=120 top=277 right=342 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Namesakes


-- part 23 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=5 top=24 right=67 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: boys
----- HyperTalk script -----
on mouseUp
  get XScrollBox(0,"Choose a name:",card field "boySorted" of cd 1)
  if it is empty then
  else
    get second item of it
    go to cd it
  end if
end mouseUp